﻿Imports QueComer

Public Class Ofertas

    Public BuscarRestaurantes As BuscarRestaurantes

    Private Sub ListarROfertasForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim negocio As New Buscar
        Dim a = Me.Text
        Dim modelo = negocio.buscaroferxrest(a)
        If modelo.Count <> "0" Then
            Me.dgvCategorias.DataSource = modelo
            Me.dgvCategorias.EditMode = False

            Me.dgvCategorias.Columns(2).HeaderText = "Fecha de Inicio"
            Me.dgvCategorias.Columns(3).HeaderText = "Final de Oferta"
            Me.dgvCategorias.Columns(4).HeaderText = "Oferta"

            Me.dgvCategorias.Columns(0).Visible = False
            Me.dgvCategorias.Columns(1).Visible = False
        Else
            Me.dgvCategorias.DataSource = ""
        End If
    End Sub

    Private Sub dgvCategorias_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)

    End Sub

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub

    Private Sub dgvCategorias_CellContentClick_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvCategorias.CellContentClick

    End Sub
End Class